home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / A-Newest / TORPET.d64 / keydef.inst (.txt) < prev    next >
Commodore BASIC  |  2009-10-12  |  4KB  |  116 lines
  1. 1 POKE 53280,PEEK(53281)
  2. 10 INPUT"[147] OUTPUT TO PRINTER (1)[146] OR SCREEN (0)[146]";PR
  3. 20 IFPR<0ORPR>1 THEN10
  4. 30 OPEN4,PR+3:PR=-PR
  5. 40 IF NOT PR THEN100
  6. 50 PRINT"[147]    POSITION PAPER AND PRESS RETURN"
  7. 60 GETA$:IFA$<>CHR$(13)THEN60
  8. 70 GOTO100
  9. 100 PRINT#4,"[147] INSTRUCTIONS FOR KEYDEF, A KEYBOARD "
  10. 150 PRINT#4,"    REDEFINITION PROGRAM FOR THE     "
  11. 200 PRINT#4,"           COMMODORE 64.             "
  12. 250 PRINT#4," "
  13. 300 PRINT#4,"KEYDEF IS A UTILITY PROGRAM DESIGNED"
  14. 350 PRINT#4,"TO REDEFINE THE KEYBOARD OF THE"
  15. 400 PRINT#4,"COMMODORE 64.  IT ALLOWS FOR THE"
  16. 450 PRINT#4,"CREATING AND SAVING OF DEFINITION"
  17. 500 PRINT#4,"FILES, LOADING OF PREVIOUSLY DEFINED"
  18. 550 PRINT#4,"FILES, AND PROVIDES FOR LOADING"
  19. 600 PRINT#4,"OF THE STANDARD DVORAK KEYBOARD."
  20. 650 PRINT#4," "
  21. 700 PRINT#4,"THE PROGRAM IS BASICALLY MENU DRIVEN"
  22. 750 PRINT#4,"AND WHAT FOLLOWS IS A BRIEF DESCRIPTION"
  23. 800 PRINT#4,"OF THE MENU CHOICES."
  24. 850 IF NOT PR THEN GOSUB 60000
  25. 870 PRINT#4," "
  26. 900 PRINT#4,"[147]  MENU 1:  [146]"
  27. 950 PRINT#4," "
  28. 1000 PRINT#4,"CHOICE 1 LOADS A PREVIOUSLY SAVED"
  29. 1050 PRINT#4,"DEFINITION FILE FROM TAPE OR DISK,"
  30. 1100 PRINT#4,"DEPENDING ON FLAG F1 IN LINE 7."
  31. 1150 PRINT#4,"(F1 SHOULD BE 1 FOR DISK AND 0 FOR"
  32. 1200 PRINT#4,"TAPE.)"
  33. 1220 PRINT#4," "
  34. 1250 PRINT#4,"CHOICE 2 PUTS PROGRAM IN 'CREATE' MODE"
  35. 1300 PRINT#4,"AND TRANSFERS CONTROL TO MENU 2."
  36. 1350 PRINT#4," "
  37. 1400 PRINT#4,"CHOICE 3 SAVES WHICHEVER KEY TABLE"
  38. 1450 PRINT#4,"IS CURRENTLY IN USE.  (THIS MAY"
  39. 1500 PRINT#4,"EVEN BE THE ROM TABLE.)  FLAG F1"
  40. 1520 PRINT#4,"APPLYS AS WITH CHOICE 1 ABOVE."
  41. 1550 PRINT#4," "
  42. 1600 PRINT#4,"CHOICE 4 IMPLEMENTS A DVORAK KEYBOARD."
  43. 1650 PRINT#4,"(ANSI STANDARD X4.22-1983)"
  44. 1700 PRINT#4," "
  45. 1750 PRINT#4,"CHOICE 5 TRANSFERS CONTROL TO MENU 3."
  46. 1800 IF NOT PR THEN GOSUB 60000
  47. 1850 PRINT#4,"[147]  MENU 2:  [146]"
  48. 1900 PRINT#4," "
  49. 1950 PRINT#4,"CHOICE 1 WILL ENABLE THE PROGRAMMER"
  50. 2000 PRINT#4,"TO ASSIGN CTRL'ED, COMMODORE'ED AND"
  51. 2050 PRINT#4,"SHIFTED KEYS INDEPENDENTLY OF THE"
  52. 2100 PRINT#4,"UNSHIFTED KEYS."
  53. 2150 PRINT#4," "
  54. 2200 PRINT#4,"CHOICE 2 ASSIGNS ALL FUNCTIONS OF"
  55. 2250 PRINT#4,"THE KEYS, (CTRL'ED, COMMODORE'ED AND"
  56. 2300 PRINT#4,"SHIFTED) ALONG WITH THE UNSHIFTED"
  57. 2350 PRINT#4,"KEY, SIMULTANEOUSLY."
  58. 2400 IF NOT PR THEN GOSUB 60000
  59. 2420 IF PR THENJ=20:GOSUB61000
  60. 2450 PRINT#4,"[147]  'CREATE' MODE  "
  61. 2470 PRINT#4," "
  62. 2500 PRINT#4,"IN THIS MODE, THE PROGRAM REQUIRES"
  63. 2550 PRINT#4,"TWO PIECES OF DATA.  WHEN THE CURSOR"
  64. 2600 PRINT#4,"(AN UNFLASHING SQUARE) APPEARS IN THE"
  65. 2650 PRINT#4,"'KEY LABEL' COLUMN, PRESS THE KEY TO"
  66. 2700 PRINT#4,"BE REASSIGNED.  THE TABLE WILL LIST THE"
  67. 2750 PRINT#4,"CURRENT ASSIGNMENT OF THAT KEY, THEN"
  68. 2800 PRINT#4,"THE CURSOR WILL APPEAR IN THE 'NEW"
  69. 2850 PRINT#4,"ASSIGNMENT' COLUMN.  AT THIS TIME PRESS"
  70. 2900 PRINT#4,"THE KEY LABELED WITH THE NEW CHARACTER"
  71. 2950 PRINT#4,"TO BE ASSIGNED, OR, IF A CHR$ CODE IS "
  72. 3000 PRINT#4,"TO BE ENTERED, PRESS THE 'STOP' KEY."
  73. 3050 PRINT#4,"AFTER REASSIGNING AS MANY KEYS AS"
  74. 3100 PRINT#4,"DESIRED, PRESS THE 'STOP' KEY WHILE THE"
  75. 3150 PRINT#4,"CURSOR IS IN THE 'KEY LABEL' COLUMN"
  76. 3200 PRINT#4,"TO ENTER THE NEW KEY ASSIGNMENTS INTO"
  77. 3250 PRINT#4,"THE KEY TABLE."
  78. 3255 IF PR THEN 3300
  79. 3260 IF NOT PR THEN GOSUB 60000
  80. 3270 PRINT#4,"[147]  'CREATE' MODE  "
  81. 3300 PRINT#4," "
  82. 3350 PRINT#4,"THE 'STOP' KEY ITSELF CANNOT BE"
  83. 3400 PRINT#4,"REASSIGNED."
  84. 3425 PRINT#4," "
  85. 3450 PRINT#4,"CHR$ CODES CANNOT BE ASSIGNED WHILE IN"
  86. 3500 PRINT#4,"THE MODE WHERE ALL SHIFTS ARE ASSIGNED"
  87. 3550 PRINT#4,"SIMULTANEOUSLY (INDICATED BY '*' TO"
  88. 3600 PRINT#4,"THE LEFT OF THE KEY LABEL)."
  89. 3650 IF NOT PR THEN GOSUB 60000
  90. 3700 PRINT#4,"[147]  MENU 3:  [146]"
  91. 3750 PRINT#4," "
  92. 3800 PRINT#4,"CHOICE 1 ENDS THE PROGRAM AFTER "
  93. 3850 PRINT#4,"RESTORING THE ORIGINAL COMMODORE 64"
  94. 3900 PRINT#4,"KEY ASSIGNMENTS."
  95. 3950 PRINT#4," "
  96. 4000 PRINT#4,"CHOICE 2 ENDS THE PROGRAM LEAVING THE"
  97. 4050 PRINT#4,"USER DEFINED KEY TABLE IN EFFECT."
  98. 4100 IF NOT PR THEN GOSUB 60000
  99. 4150 PRINT#4,"[147]  THE DVORAK KEYBOARD:  [146]"
  100. 4200 PRINT#4," "
  101. 4250 PRINT#4," "
  102. 4300 PRINT#4,"    1  2  3  4  5  6  7  8  9  0"
  103. 4320 PRINT#4," "
  104. 4350 PRINT#4,"     /  ,  .  P  Y  F  G  C  R  L"
  105. 4370 PRINT#4," "
  106. 4400 PRINT#4,"      A  O  E  U  I  D  H  T  N  S"
  107. 4420 PRINT#4," "
  108. 4450 PRINT#4,"       ;  Q  J  K  X  B  M  W  V  Z"
  109. 4470 PRINT#4," "
  110. 59999 PRINT#4:CLOSE4:END
  111. 60000 PRINT#4,"       HIT ANY KEY TO CONTINUE "
  112. 60050 GETA$:IFA$=""THEN60050
  113. 60100 RETURN
  114. 61000 FORI=1TOJ:PRINT#4," ":NEXT
  115. 61100 RETURN
  116.